MacWorld 1999 January - Disc 2/Macworld (1999-01) (Disk 2).dmg/Serious Demos/Symbolic Composer 4.2/Environment/Projects/Contributed Scores/Mark Polishook/Herrick.1st.part

Lisp/Scheme | 1998-10-26 | 6KB | 115 lines

(setq wild (symbol-trim 41 (gen-expansion 2 '(-p -l) (reverse (vector-to-symbol a m (gen-connel 6 'up))))))
(setq wild.l (get-timing '1/8 (find-change wild)))
(setq wild.l-loop (gen-loop '((1 2 3) (1 3 2) (1 4 2) (1 5 2) (1 7 2)) wild.l))
(setq wild-f (ornament-higher-chromatic (ornament-lower 1 (ornament-higher 1
     (filter-delete '(b d -d) wild)))))
(setq wild-f-loop (gen-loop '((1 2 3) (1 3 2) (1 4 2) (1 5 2) (1 7 2)) wild-f))
(setq counterline '(a c e c f e a c e c f))
(setq counterline.b '(a c e c f e g f))
(setq c.line (gen-fibonacci 5 counterline counterline.b))  ;  (length c.line)
(setq poly (symbol-transpose 7 (gen-fibonacci 6 '(a e c e -b (+1 -b)) '(a = = dh = = (-1 b) a))))
(setq cello.l.vel (gen-fibonacci 7 '(72 28 28 28 48 48) '(72 0 0 96 0 0 64 64)))
(setq c.line.cello (symbol-mask (symbol-transpose 14 c.line) (gen-random 0.73942 128 '(x x = x x x =))))
(setq c.line.b (gen-fibonacci-trans 2 counterline counterline.b))  ;  (length c.line.b)
(setq c.line.c (reverse c.line.b))  ;  (length c.line.c)
(setq c.line.altered (randomize-harmony 0.45 'solo -1 1 c.line))
(setq c.line.mask (symbol-mask c.line (gen-random 0.154 128 '(x x = x x))))
(setq appendages (append c.line.mask c.line.b c.line.c c.line.c))
(setq appendages== (gen-loop '((1 2 2) (3 8 1) (3 10 1) (1 10 2)) (symbol-shift 2 appendages)))
(setq c.appendages (symbol-repeat 2 (find-change appendages)))
(setq episode (gen-fibonacci 7 '(a e c e) '(a e c e -d)))
(setq episode.vel (gen-fibonacci 7 '(50 40 40 40) '(40 40 40 40 72)))
(setq spray '(ce = (-24 a) -b d h -b (+1 h) -b d h))
(setq spra '(-b d h -b (+1 h) -b d h))
(setq fib.spray (gen-fibonacci 7 spray spra))
(setq spray.l '(1/16 1/16 3/8 1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16))
(setq spra.l '(1/16 1/16 1/16 1/16 1/16 1/16 1/16 1/16))
(setq fib.spray.l (gen-fibonacci 7 spray.l spra.l))
(create-tonality mixo.b9 '(a 1 b& 1 c# 2 d 2 e 2 f# 2 g 2))
(setq fib.lh (gen-fibonacci 7 '(a h a h = -d a h a h a h = -d) '(a h a h = e a h a h a h = -d a h a h)))
(setq fib.lh.vel (gen-fibonacci 7 '(124 48 48 124 0 108 124 48 124 48 48 108 0 96)
                                '(124 48 48 124 0 96 124 48 124 48 48 48 0 96 124 48 48 48)))
;--------------------------------------------------------------------------------------------------------

(def-orchestra 'ensemble
  trio (violin cello piano)
  piano (rh lh))

(def-symbol
  violin (list '(=) c.line.mask c.line.b c.line.c c.line.c '(=) wild '(=) wild '(=) wild '(=) wild '(=)
               wild '(=) wild '(=) wild '(=) wild '(=) c.appendages)
  cello (list '(=) '(hl) '(hl) '(hl) '(hl) poly '(=) c.line.cello '(=) wild-f-loop '(=))
  rh (list wild wild wild wild wild wild wild appendages== fib.spray)
  lh (list '(a b) fib.lh '(=) episode)
)

(def-length
  violin (list '(1/8) '(1/8) '(1/8) '(1/8) '(1/8) '(1/8) wild.l '(-1/8) wild.l '(-1/8)
                  wild.l '(-1/8) wild.l '(-1/8) wild.l '(-1/8) wild.l '(-1/8) wild.l
                  '(-1/8) wild.l '(-1/8) '(1/16))
  cello (list '(1/8) '(2/1) '(3/1) '(4/1) '(2/1) '(1/8) '(1/8) '(1/8) '(-1/8) wild.l-loop '(1/8))
  rh (list wild.l wild.l wild.l wild.l wild.l wild.l wild.l '(1/8) fib.spray.l)
  lh (list '(1/8 1/8) '(1/8) '(1/8 1/8) '(1/8))
)

(def-zone
  violin '(-15/1 16/1 15/4 15/4 15/4 -7/4 3/1 -6/4 3/1 -5/4 3/1 -4/4 3/1 -3/4 3/1 -3/4 3/1 -3/4 3/1 -3/4
           19/8 -15/8 432/16)
  cello '(-15/1 8/1 9/1 4/1 6/1 24/1 1/1 55/8 -15/8 108/4 -1/4)
  rh '(4/1 4/1 29/4 29/4 29/4 29/4 40/8 128/4 29/1)
  lh '(-19/1 23/1 -32/1 29/1)
)

(def-velocity
  violin '((30) (30) (30) (30) (30) (30) (60) (60) (60) (60) (60) (60) (60) (60) (60) (60) (60) (60)
           (60) (60) (60) (60) (40))
  cello (list '(48) '(48) '(48) '(48) '(48) cello.l.vel '(48) '(72) '(60) '(72) '(72))
  rh '((64) (64) (64) (64) (64) (64) (64) (36) (24))
  lh (list '(0) fib.lh.vel '(40) episode.vel)
)

(def-tonality
  violin (activate-tonality (mixolydian a 6) (mixolydian a 6) (mixolydian a 6) (mixolydian a 6)
                            (mixolydian a 6) (mixolydian a 6) (overtone-series 1 12 1 '(a 3))
                            (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3))
                            (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3))
                            (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3))
                            (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3))
                            (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3))
                            (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3))
                            (overtone-series 1 12 1 '(a 3)) (overtone-series 1 12 1 '(a 3))
                            (overtone-series 1 12 1 '(a 3)) (mixolydian a 6))
  cello (activate-tonality (mixolydian a 3) (mixolydian a 3) (mixolydian a 3) (mixolydian a 3)
                           (mixolydian a 3) (mixolydian a 3) (mixolydian a 3) (mixolydian a 3)
                           (mixolydian a 3) (overtone-series 1 12 1 '(a 2)) (mixolydian a 3))
  rh (activate-tonality (overtone-series 1 12 1 '(a 2)) (overtone-series 1 12 1 '(a 2))
                        (overtone-series 1 12 1 '(a 2)) (overtone-series 1 12 1 '(a 2))
                        (overtone-series 1 12 1 '(a 2)) (overtone-series 1 12 1 '(a 2))
                        (overtone-series 1 12 1 '(a 2)) (mixolydian a 6) (mixo.b9 a 5))
  lh (activate-tonality (overtone-series 1 12 1 '(a 2)) (mixolydian a 3)
                        (mixolydian a 4) (mixolydian a 4))
)

(def-tempo 112)

(compile-instrument-p "ccl;output:" "no in.1st part"
  trio
)